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(54) MEASURING APPARATUS, OPERATING METHOD THEREOF AND 
SERVER-COMPUTER 

(57)Abstract: 

PROBLEM TO BE SOLVED: To make a measuring 
apparatus operable from a remote place by supplying 
commands and information that a web server receives 
from an execution browser of a remote client computer 
to an executor to move the measuring apparatus. 
SOLUTION: A measuring apparatus 1 12 is enabled on a 
web to form a measuring apparatus 102. Commands and 
information for executing the operation of the measuring 
apparatus 112 are received from a user using a browser 
120 being executed by a remote client computer 104 to 
execute the operation. The operation result is returned 
to the browser 120 of the remote client computer 104 
for the user. A script executor 114 and web server 116 
associated with a web page 118 enable the measuring 
apparatus 102 whereby the measuring apparatus 112 
can be monitored or controlled in response to monitor 
commands, control commands or information provided 
therefrom and the data execution is enabled. 
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>on frontpanel (adrParams) 

« Avaiable parameters [WebSTAR 1 2] 

« pathArgs - stuff in the URL after a $ 

« httpSearchArgs - stuff in the URL after a ? 

« usemame - authenicated user name 

« password - authenicated password 

« fromUser- not required by http std. e-mail address of remote user 
dlentAddress - IP address or domain name of remote client's host 
« serverName - name or IP address of this server 
« serverPort- TCP/IP port number being used by this server 
« scriptName - URL name of this script 
« contentType - MIME content of post_args 
« referer - the URL of the page referencing this document 
<< userAgent - the name and version of the WWW client software being used 
« action - tfie action name, if the script was an action {or CGI, ACGI, ...) 
« ectionPath - the Mac path to the action CGI (this script) 
« postArgs - stuff sent from forms, etc. when POST method is used 
« method - GET, POST, etc. Used to tell if post_args are valid 
« cllentJP - IP address of the client 

« fullRequest- the entire HTTP request received from the client 
« oonnectionlD - unique ID of http connection 

« srgTable.xxx - form data when POST method is used, where xxx is the field name 
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> local (Wmltexl = weDServer.htlpHeatterO) 

> on add (s) 

> htmltext = himitext +s + cr 
>with adrParams* 

> add ("<html>") 

> add C^ead>") 

>add (<tffl©>T©kScop« Front PaneWtitle^) 

> add f</head>") 

> add ("<body>") 

> If defined (argTable. Key) 

> with workspace 

> local 

>comandStinQ=argTable.key 
> erTorMeasages*" 

> add e<P>Key: <, commandString+ , '<P>*) 

> commandString « °:F PAN EL PRESS w +command5tring 

> errorMessage = SendCommarKlNoOpen(cx)rnmarKlString) 

> If (errorMessage =»"■) 

> add ("(command executed without Frontier error$)<P>") 

> else 

> add ( a *P>(command returned error."* errorMessage V)<P> B ) 

> If defined (argTable. Turn) 

> with workspace 

> local 

> commandString =ergTableTum 

> I, numTums 

> errorMessage = "* 

> add ("<P>Tums: "+commandString+'<P>") 

> commandString * ":FPANELTURN "•fcommandString 

> bundJe = Get number of turns 

> local 

> num Length, numStart 

> numStart = string.pettemMatch(Y l commandSbing)+1 

> numLength = string.lengtfi(commaidStrlng) - numStart+1 

> numTums = sho^strtng.mldjcommandStrlng, numStart, nurnLength))) 

> numTurns = abs(numTums) 

> for I = 1 to numTums 

> errorMessage = SendComrnandNobpen(cdmmajidString) 

> if (errorMessage ! =") 

> break 

> if (errorMesage ==" D ) 

> add ("command executed without Frontier errors)<P>*) 
>eise 

> addf<P>(command returned error " + errorMessage+")<P>") 

> addf<P>(ioop Index: B * I +";NumTums: ": " + numTums + B )<p>") 
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> erith WHKtpece 

> hnsgoN snro 

> If <str1n5,nm"d{tm3g9Nam».13)l-^RR1 

? add r^mege ar^\")BCDp»imao»sr+frn85»N8mt+T>") 

> ttlSS 

> a<ftJ£"<P> Error racing Krrag»<P>") 

> bundle „ Add form far Keypad 

9 on BddK&y fksyString) 

> addr*iNPUT TVPE-rsuBMrn* NAME-vKejv 

VALUE*\-*keyStrino4-\-> , > 

> on •ddTum (tjmGrrtno) 

> Bddr<INPUTTYPE-VSUBMnT MAME-TTumV 
VALUE-r+fcimSbliTg+'V*') 

> •ddC«FOBM ACTlON-N7mp://12a.iri.^.17i/i«K«cop«.fronip«ne|.fcgl\" 
METHOO^POSTO 

> eddr<Jr^UT7YF^-rSUBNin'I^ME-\*Refr«^\->T 
>«5d<-<BR>-) 

> bundle „bezel buttons, dear menu, and toggle 

> eddK^CBMnnul") 

> addKoy("BMenu2") 

> acJdKeyfBMenuTJ 

> addKeyfBMenu^ 

> oddKeyfdeertMenu*) 
v ad4K*yrTbBSte") 

> addr<BR>l 

> bundle „Melar, HcW/»cquir©,M««i, Cursor* 

> addKeyCWeteO 

> «ddKey(fTun8top") 

> oddK»y("Aocru1ro') 

> addKey("Mea»Menu*) 

> eddKeyCCur^orO 

> addr<BR>-) 

> bundla „8ccpo, AutoRange, Save/Recall, Wsplay, LWty 

> addKeyf AutoRsnge') 

> oddKey^-SRSetup") 

% nddKayraspfa/) 

> eddKeyCUaStn 

> oddr<BR>^ 

> bundle „CM, Ch2, Math, RatA, ReFB, NMmOff 

>oddKeyfai1") 

> oddKeyTCha*) 

> eddKeyfMairr) 

> acWKcy("RnfB*) 

> eddKeyf^rnOfT) 

> bwndte ,.Vert Menu, Horte Menu, Trigger Menu, Mag, 60% 

> addK«y(^/ortMenu*} 

> adWay{"HoraMonu") 

> BddKeyCMag') 

> eddKeyTTdgMeniO 

> eddKeyrSeOjeTeO 

> add('<BR>0 
>buncf*» „Knob* 

9 bundle „Foe&tve Ltmt 

> *d (JTumCVortS ode, * r) 

> addTumCVeitpoa^ol 

> eddTurnTHorz6cele,»1") 

> addTorn("Hor2Po« < *25") 

> BdtrrurnfjTrlgLBvel^ZT) 

> •dffTun-CGWnoh.^l") 

> aOtr<BR>0 

> bundle ..NegfDve turns 

> •dtfTurn( , V«rtScale,-1') 

> eddTurnCVartpoe.-ZS-) 

> •ddTumCHowSoef« r 1 p ) 

> adOTutnTMorzPos,-2S*) 
» oddTum(Triflij8VBl,-2y) 
* addTufnCGPKnob.-l') 

?SdiH-<eR>7 

> ■*dr<FORM»") 

> addr</body>*) 

> addf^/htm^ 

> retum(hlmRejrt) 
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> On GenerateSelectTag (theCommand, IheName, theOptions) 

> local 

> theTag 

> IheCurrentSetting 

>i 

> on add (s) 

> theTag = theTag +s + char(13) 

> theCuuentSetting = workspace.QueryScopeSetting(theCommand) 

> add ("<SELECT NAME=\ M =theName + V S!ZE=1>") 

> local 

> theOptionName 

> theOptionLabel 

> theOptionTag 

> for I =1 to sizeOf(theOptions) 

> theOptionName = theOptions(i)[1l 

> theOptionLabel = theOptions(D[2] 

> theOptionTag ="<OPTION VALUE=r + theOptionName VY" 

> if (theOptionName= = theCurrentSetthg) 

> theOptionTag = theOptionTag + "SELECTED 0 

> theOptionTag * theOptionTag + °> D + theOptionLabel 
>add (theOptionTag) 

> add {-</SELECT>") 
>retum theTag 

>GenerateSelectTag ("CH!:SCA, "ChlScale", {{"5.0E-3", "5 mV"}A 

> {"1-0E-2", ■10mV°). f 2.0E-2", "20 mNO.CS.OE-r, "50 mV"}A 

> f 1.0E-r f -100mV-}, f2.0E-r, -200 m\r},r5.0E-r ? "500 m\T}A 

> f1 .0E-0\ "1 \T}, C2.0E-CT. *2 V},f 5.0E-0", m 5 \T}A 

> f ioei\ "io v"), r^oer, "20 \o.f s.oei; '50 v}A 
>}) 

«aaaRecordTestScript (ACQ:MODE",{rSAM\ 'SAMPLER 

«f PEAK", "Peak Detect"}, f AVE", -Average"}, {"ENV, -Envelope"}}) 

> On GonerotoToxtTag (thftCommand, thoNarrw, thnSlr*) 

> local 

> thaTag 

> ineCurrentSetung 
>l 

> tr>«Curr©ntSettng = wo«Kspace.QweryScopeS«ting(tnoCommand} 

> th«Teo="<JNPUT TYPE»TEXT 51ZE=^ +tfteSJze ♦"NamasY' -^thoNam© + •\"VALUE« p +\ 

> th©Curr©ntS*tting * 

> return theTag 

> mstfGenerateTexrTag (*:TRIGGER:MAIN: LEVEL* ,"TrigLav©|",e» 
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> On QueryScopeSetting (settingToQuery) 

> local 

> queryResponse 

> errorMsg 

> if string.nthChar(settingToQuery, string. length(settingToQuery)) i=~r 

> settingToQuery = settingToQuery + *T 

> with system.extensions.SerialPortCommands, workspace 

> try 

> sendStringSiowIy (settingToQuery + ScopeEOL) 

> queryResponse ■ workspace. ReadSerialLinefScopeSerialPort, 
1 80){settingToQuery + ScopeEOL) 

> return queryResponse 

> else 

> errorMsg = M erTon+try Error +"Querying: ' + settingToQuery +"; Port " + 
ScopeSerialPort 

« msg(errorMsg) 

> scriptError(tryError)] 
>retum(errorMsg) 

> tialog.Alert( u Acquire mode: * + QueryScopeSettingC'ACUIREiMODE")) 

[*7] 



(11) §2 000-4 6600 (P2000-46 6JL 



> on GrabNewScreenForFCGI 0 
> with workspace, ciip2gif 

> local 

> grfName, glf Path 

> bunde ° MeKe sure ODB variables are defined 

> If not (defined(worKspace.ScopeOIFFoWer)) 

> workspace.ScopeGIFFolder = •Macintosh HD:M!keGaUand:Quld Pro 

Quo: acopeimages^ 

> if not (file exlsts(workspace.ScopeGIFFolder)) 

> file.newFoldertworkspace-ScopeGIFFolder) 

> If not (defined(work«pace.ScopeGHFNumber)) 

> worK5pace.ScopeOIFNurnber«0 

> glfName = "screen" +5copeGIFNumDer +"-gr 

> gtfPath * ScopeGIFFolder +glfName 
>ScopaGIFNumber= ScopeGIFNumber+1 

> errorMessage= GrabScreenNoOpenfRAM Dialcscopatir) 

> if (e rrorMessage==") 

> app.atart ( M dip2gif") 

> app.bringToFrontO 

«save ("RAM Dish: scope .tif", savelnf gifPath", as:glf) 

> save (RAM Disk: scope. tir, save1n:"RAM Dlsfcscope.gir, as:gif, depth:1) 

> Fronaer.bringToFrontO 

> local 

>gifData 

> filo.open ("RAM Disk: scope. til") 

> glfData = flle.readC'RAM Disk: scope. gir. Infinity) 

> glfData [19]= Oxff 

> fiie.close("RAM Disk:scope.gif") 

> gifData [19]= Oxff 

> file.new(gifPath) 

> file.selCreator(gifPath/c2gf) 

> file.setType(gifPath/GIFfr) 

> flle.wrtte(gffPath, glfData) 

> file.$etCreator(gifPath/c2gf) 

> fiie.setCreator(glfPath,'c2gr) 

> file.c!ose(gif Path) 

> return g if Name 

>e1se 

> return M ERR" +errorMessage 
> GrabNewScreenForFCGI 0 
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